home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 25 / 025.d81 / file 2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  7.2 KB  |  195 lines
  1. 0 rem*********  file cabinet  **********
  2. 1 rem*********  djb  shibley  **********
  3. 10 gosub5000:goto500
  4. 25 print"[152]":forj=1tof1:print""cd$w$(h,j)"":next
  5. 27 ifasc(f2$(1))<>42thenreturn
  6. 29 forj=2to11:print""cd$w$(h,j):next:return
  7. 35 poke53280,15:print"[147]"spc(13)f0$""
  8. 36 print"press return through each fieldto quit[144]"
  9. 37 forj=1tof1:printf2$(j)":":next:ifasc(f2$(1))<>42thenreturn
  10. 39 print"":forj=1to10:print"v"j:next:return
  11. 40 print"":forj=1tof1:print""left$(sp$,25)"":next
  12. 42 ifasc(f2$(1))<>42thenreturn
  13. 44 forj=1to10:print""left$(sp$,26):next:return
  14. 100 poke53280,.:poke53281,.:print"[147][158]loading : "f0$""
  15. 105 print"please stand by":ch=.
  16. 110 open2,8,2,"0:"+f0$+",s,r":input#2,t:ifasc(f2$(1))=42then120
  17. 115 fori=1tot:forj=1tof1:input#2,w$(i,j):next:next:goto125
  18. 120 fori=1tot:input#2,w$(i,1):forj=2to11:input#2,w$(i,j):next:next
  19. 125 close2:return
  20. 130 printcb$:print""spc(13);:y$="next or return":gosub444
  21. 135 ifx$=chr$(13)orx$="n"orx$="r"thenprintcb$:return
  22. 137 goto130
  23. 425 print"[155]                                       [157][148] ":x=len(x$)
  24. 427 forj=1to28-x:print""spc(j)"[157] "left$(x$,x/2)""spc(39-j)left$(lr$,x/2);
  25. 430 printright$(x$,x/2)" [157]":fork=1to15:next:next:forj=1to35
  26. 433 print"[155]                                       [157][148] ":fork=1to20:next
  27. 435 print""spc(20-x/2)x$:fork=1to20:next:next:return
  28. 444 x=len(y$):printy$left$(lr$,x);
  29. 445 forj=1to50:getx$:ifx$=""thennext:goto450
  30. 447 j=50:next:return
  31. 450 printleft$(sp$,x)left$(lr$,x);
  32. 453 forj=1to40:getx$:ifx$=""thennext:goto444
  33. 455 j=40:next:return
  34. 460 y$="[209]":z$=""
  35. 465 gosub444:ifx$=""orx$=chr$(13)thenprint" ":return
  36. 470 ifx$="[157]"orx$=chr$(20)andlen(z$)=.then465
  37. 475 ifx$="[157]"orx$=chr$(20)thenz$=left$(z$,len(z$)-1):print"[157]  [157][157]";:goto465
  38. 477 ifx$>"^"orlen(z$)=dlthen465
  39. 480 ifx$<" "orx$=chr$(34)orx$=","orx$=";"orx$=":"then465
  40. 485 print"[152]"x$"";:z$=z$+x$:goto465
  41. 500 poke53280,4:poke53281,15:print"[147]";:ch=.
  42. 505 print"                                        ";
  43. 508 forj=.to22:print"  ";:next
  44. 510 print"                                       [157][148] "
  45. 512 print"file cabinet[157][157][157][157][157][157][157][157][157][157][157][157][158][197][197][197][197][197][197][197][197][197][197][197][197]"
  46. 514 print"[154]from  shibley software[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][156][183][183][183][183][183][183][183][183][183][183][183]";
  47. 515 print"[183][183][183][183][183][183][183][183][183][183][183]"
  48. 517 printspc(10)"1 - [144]new file":printspc(10)"2 - [144]existing file"
  49. 518 printspc(10)"3 - [144]display disk":printspc(10)"4 - [144]command entry"
  50. 520 printspc(10)"5 - [144]terminate program"
  51. 523 print""spc(13);
  52. 525 y$="depress option"::gosub444:ifx$=""orx$="5"then4000
  53. 530 ifx$<"1"orx$>"5"then523
  54. 535 o$=x$:ifo$="3"then800
  55. 540 print"              ":forj=1to6:print""left$(sp$,30):next:ifo$="4"then1000
  56. 545 print""spc(12)"return file name"
  57. 547 print"[145][145][145][145]   return empty filename to cancel"
  58. 550 printspc(11)"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][145][145]":printce$;
  59. 555 dl=16:gosub460:ifx$=""then500
  60. 560 f0$=z$:ifz$=""then500:rem f0$="scratch":printce$"scratch"
  61. 565 iflen(f0$)<16thenf0$=f0$+" ":goto565
  62. 575 open2,8,2,"0:dir,s,r":input#2,t1:if(t1<30oro$="2")andst=.then580
  63. 576 close2:ifst>.thenx$="unformatted disk":gosub425:goto500
  64. 577 x$="disk full error":gosub425:goto500
  65. 580 x=.:forj=1tot1:input#2,x$:w$(j,.)=x$:ifleft$(x$,16)=f0$thenx=j
  66. 585 next:close2:ifx=.ando$="1"thenprint"":goto595
  67. 587 ifx=.thenx$="file not found":gosub425:print""sp$:goto545
  68. 588 ifo$="1"thenx$="file  dup. error":gosub425:print""sp$:goto545
  69. 589 f1=val(mid$(w$(x,.),17,1)):forj=1tof1:f2$(j)=mid$(w$(x,.),8+j*10,10):next
  70. 590 gosub100:goto2000
  71. 595 print""f0$""spc(19)"# of fields":print""right$(sp$,38)
  72. 600 print"[145]"spc(12):dl=1:gosub460:ifx$=""then500
  73. 605 f1=val(z$):ifz$=""orz$<"1"orz$>"8"thenf1=1
  74. 610 print"":printspc(22)f1" fields"spc(19)"field      "
  75. 615 fori=1tof1:print""spc(24)i"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
  76. 616 print"          [157][157][157][157][157][157][157][157][157][157]";
  77. 620 dl=10:gosub460:ifx$=""thenj=f1:next:goto500
  78. 621 ifz$=""thenz$="field"+str$(i)
  79. 625 iflen(z$)<10thenz$=z$+" ":goto625
  80. 630 f2$(i)=z$:ifasc(z$)=42theniff1>1thenx$="variable error":gosub425:goto500
  81. 645 print"";:forj=1toi:print"";
  82. 646 ifj=5thenprint"[145][145][145][145][145][145][145][145]";
  83. 650 next:printf2$(i):next:t=.:t1=t1+1:w$(t1,.)=f0$+right$(str$(f1),1)
  84. 651 forj=1tof1:w$(t1,.)=w$(t1,.)+f2$(j):next:ch=1
  85. 655 gosub35:ift=200thenx$="file full":gosub425:goto500
  86. 660 xq$="":t=t+1:print""spc(32)t"":fori=1tof1
  87. 665 print""spc(12);:dl=25:gosub460:ifx$=""andt=1theni=f1:next:goto500
  88. 670 ifx$=""thent=t-1:i=f1:next:ch=ch+1:goto2000
  89. 675 xq$=xq$+z$:ifz$=""thenz$="*"
  90. 685 w$(t,i)=z$:next:ifxq$=""andt=1then500
  91. 686 ifxq$=""thent=t-1:ch=ch+1::goto2000
  92. 687 ifasc(f2$(1))<>42then715
  93. 690 print"":forj=2to11:w$(t,j)="*":next:fori=2to11:print"";
  94. 700 dl=25:gosub460:ifx$=""orz$=""theni=11:next:goto715
  95. 710 w$(t,i)=z$:next
  96. 715 gosub40:goto660
  97. 725 printcb$:print"[145]";:y$="is this the record  to be erased"
  98. 727 gosub444:ifx$<>"y"andx$<>"n"then725
  99. 730 printcb$:ifx$="n"andsa<=tthen2070
  100. 731 ifx$="n"then2000
  101. 735 printcb$:printspc(13)"[145]erasing record[145]":ch=1:t=t-1:ifasc(f2$(1))=42then740
  102. 736 fori=htot:forj=1tof1:w$(i,j)=w$(i+1,j):next:next:goto744
  103. 740 fori=htot:forj=1to11:w$(i,j)=w$(i+1,j):next:next
  104. 744 printcb$:printspc(11)"[145]record eliminated":forj=1to800:next:goto2000
  105. 750 print"":dl=25:y$="[209]":fori=1tof1:print""spc(len(w$(h,i))+12);
  106. 755 z$=w$(h,i):gosub465:ifz$<>w$(h,i)thench=1
  107. 760 ifz$=""thenz$="*"
  108. 765 w$(h,i)=z$:ifx$=""theni=f1:next:goto2000
  109. 770 next:ifasc(f2$(1))<>42thengoto790
  110. 775 print"";:fori=2to11:printspc(len(w$(h,i))+10);:z$=w$(h,i)
  111. 780 gosub465:ifz$<>w$(h,i)thench=1
  112. 785 w$(h,i)=z$:ifx$=""theni=11:next:goto2000
  113. 788 next
  114. 790 gosub130:ifx$=chr$(13)thenh=h+1:ifh>tthenh=1
  115. 792 ifx$=chr$(13)then2080
  116. 794 ifx$="n"then2050
  117. 798 goto2000
  118. 800 poke53280,5:poke53281,4:print"[147][158]files on this disk  are:[144]"
  119. 805 open2,8,2,"dir,s,r":input#2,t1:ifst=.then810
  120. 806 close2:x$="unformatted disk":gosub425:goto500
  121. 810 forj=1tot1:input#2,x$:print""left$(x$,16);:ifint(j/2)=j/2thenprint
  122. 815 next:close2:gosub130:ifx$=chr$(13)orx$="r"then500
  123. 820 goto800
  124. 825 poke53280,.:poke53281,2:print"[147][150]"spc(16)"printing":pr$="01"
  125. 826 open2,8,2,"0:ptr.fmt,s,r":input#2,x$:ifst=64thenpr$=x$
  126. 827 close2:p(.)=val(left$(pr$,1)):p(1)=val(right$(pr$,1))
  127. 830 open4,4:print#4,spc(30)f0$:print#4,spc(30)"----------------"chr$(13)chr$(13)
  128. 835 fori=1tot:getx$:ifx$=""theni=t:goto865
  129. 840 y=.:forj=1tof1:ifp(.)=1or(p(.)=2andj=1)thenprint#4,f2$(j)":";:y=y+11
  130. 841 ifw$(i,j)="*"and(p(.)=0or(p(.)=2andj>1))then844
  131. 842 print#4,w$(i,j);:y=y+len(w$(i,j)):ifp(1)=1andj<f1thenprint#4,",";:y=y+1
  132. 844 print#4,"  ";:y=y+2:ifp(.)<>1andlen(w$(i,j+1))+y<80then849
  133. 845 ifp(.)=1andlen(w$(i,j+1))+y+11<80then849
  134. 847 y=.:print#4
  135. 849 next:print#4:ifasc(f2$(1))<>42then865
  136. 850 y=.:forj=2to11:ifw$(i,j)="*"thenj=11:goto860
  137. 852 ify=.andp(.)>.thenprint#4,"           ";:y=11
  138. 855 print#4,w$(i,j);:y=y+len(w$(i,j)):ifp(1)=1thenprint#4,",";:y=y+1
  139. 856 print#4," ";:y=y+1:ifj<11theniflen(w$(i,j+1))+y>79theny=.:print#4
  140. 860 next:print#4
  141. 865 print#4:next:forj=1to10:print#4:next:close4:goto2000
  142. 1000 poke53280,.:poke53281,.:print"[147][158]loading  command program[144]"
  143. 1004 print"load"chr$(34)"f.cmd"chr$(34)",8"
  144. 1006 print"run":poke198,.:poke631,13:poke632,13:poke198,2:end
  145. 2000 poke53280,4:poke53281,15:print"[147]";
  146. 2005 print"                                        ";
  147. 2008 forj=.to22:print"  ";:next
  148. 2010 print"                                       [157][148] "
  149. 2012 print"file cabinet[157][157][157][157][157][157][157][157][157][157][157][157][158][197][197][197][197][197][197][197][197][197][197][197][197]"
  150. 2014 print"[154]file= "f0$"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][156][183][183][183][183][183][183][183][183][183][183][183]";
  151. 2015 print"[183][183][183][183][183][183][183][183][183][183][183]"
  152. 2017 printspc(10)"1 - [144]display":printspc(10)"2 - [144]add records"
  153. 2018 printspc(10)"3 - [144]edit records":printspc(10)"4 - [144]delete records"
  154. 2020 printspc(10)"5 - [144]print":printspc(10)"6 - [144]exit file"
  155. 2023 print""spc(13);
  156. 2025 y$="depress option"::gosub444:ifx$=""then5400
  157. 2030 ifx$<"1"orx$>"6"then2023
  158. 2035 o$=x$:if(o$="6"orx$="")andch=.then500
  159. 2037 ifo$="4"andt=1thenx$="file empty":gosub425:goto2000
  160. 2040 onval(o$)goto2050,655,2050,2050,825,5400
  161. 2050 gosub35:print"":fori=1tof1
  162. 2055 print""spc(12);:dl=25:gosub460:ifx$=""theni=f1:next:goto2000
  163. 2060 ifz$<>""theny=i:i=f1
  164. 2065 next:sa=1:ifz$=""then2000
  165. 2070 h=.:x=len(z$):forj=satot:ifleft$(w$(j,y),x)=z$thenh=j:sa=j+1:j=t
  166. 2075 next:ifh=.thenx$="record not found":gosub425:goto2050
  167. 2080 gosub25:onval(o$)goto2085,0,750,725
  168. 2085 gosub130:ifx$=chr$(13)thenh=h+1:ifh>tthenh=1
  169. 2090 ifx$=chr$(13)then2080
  170. 2095 ifx$="n"then2050
  171. 2097 goto2000
  172. 4000 poke53280,6:poke53281,6:print"[147]"spc(14)"file  cabinet"
  173. 4002 printspc(18)"[158]ended[144]":load"hello connect",8:end
  174. 4999 stop
  175. 5000 dimw$(200,11)
  176. 5001 forj=1to40:x$=x$+"[157]":y$=y$+"":next:lr$=x$+y$:forj=1to40:sp$=sp$+" ":next
  177. 5002 ce$=""+left$(sp$,38)+left$(lr$,27)
  178. 5003 cd$="                         [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"
  179. 5004 cb$=""+left$(sp$,38)+left$(lr$,38):return
  180. 5049 return
  181. 5400 ifch=.thenrun
  182. 5401 poke53280,.:poke53281,.:print"[147][158]";:y$="shall i save the changes  y/n"
  183. 5405 gosub444:ifx$="n"orx$=""thenrun
  184. 5406 ifx$="r"then2000
  185. 5410 ifx$<>"y"then5400
  186. 5415 print"[147]saving : "f0$
  187. 5420 open15,8,15:print#15,"s0:"+f0$:close15
  188. 5425 open3,8,3,"0:"+f0$+",s,w":print#3,t:ifasc(f2$(1))=42then5440
  189. 5430 fori=1tot:forj=1tof1:print#3,w$(i,j):next:next:goto5450
  190. 5440 fori=1tot:forj=1to11:print#3,w$(i,j):next:next
  191. 5450 close3:ifch=1thenrun
  192. 5452 open15,8,15:print#15,"s0:dir":close15:open3,8,3,"0:dir,s,w":print#3,t1
  193. 5455 forj=1tot1:print#3,w$(j,.):next:close3:run
  194. 5555 open15,8,15:print#15,"s0:file cabinet":close15:save"file cabinet",8:end
  195.